home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Digital Talk 50
/
Digital_Talk_50_2001-08-13_Digital_Talk_de_Side_C.d64
/
laeufer 1 .kah
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
51 lines
1 q=peek(186):poke820,q:qa=peek(821):onqagoto8:rem---laeufer01---
2 b=53280:print"[147]":pokeb,0:pokeb+1,11:gosub100
3 poke821,1:load"jogger04*",q,1
8 poke45,0:poke46,40:clr:goto120:rem sov=$2800
9 qp=30:open4,4:open5,4,6:cmd4:print#5,chr$(qp):close4:close5:end
11 q$="laeufer":qv$="01":qt$=q$+qv$:qd$="220601":return
12 gosub11:print"g-a 8/9?[145]":getq:on-(q<>8andq<>9)goto12:return
18 gosub12:print" g-a"q"[145]":open15,q,15,"s:"+qt$:close15:saveqt$,q:end
61 cy=int(c/100):cx=c-(cy*100)
62 poke211,cx:poke214,cy:sys58640:return
68 lc=int(l/100):ll=l-(lc*100)
69 forx=lctoll:poke781,x:sys59903:next:return
100 printtab(15)"[158]laeufer 01"
102 printtab(10)"[152]nach einer idee von"
104 printtab(14)"[155]bruno jonne"
106 printtab(12)"[152]programmiert von"
108 printtab(16)"[153]ka ha te"
110 fori=0to1000:next
112 printtab(11)"[152]datei wird geladen"
114 printtab(14)"[144]bitte warten[155]"
116 return
120 l=1224:gosub68:c=2310:gosub61
122 print"[144]weiter mit <return>[155]"
150 r$="":getr$:on-(r$<>chr$(13))goto150
200 rem ---laeufer-start---
202 l=724:gosub68
210 sn=128:sx=0:sr=0
212 poke53248,sx:poke53264,sr:rem x-position
214 poke53287,1:rem sprite-farbe
216 poke53271,0:poke53277,0:rem groesse
218 poke53249,160:rem y-position
220 poke2040,sn:rem sprite-datenadresse
230 poke53269,1:rem sprite0 ein
250 fori=0to80:next
252 ifsn>=132thensn=128:goto260
254 sn=sn+1
260 ifsx<248then264
262 sr=1:sx=0:goto270
264 sx=sx+8
270 poke2040,sn
272 poke53264,sr:poke53248,sx
274 ifsr>0then280
276 goto250
280 ifsx<88then250
282 sr=0:sx=0:poke53269,0
284 poke53264,sr:poke53248,sx
300 r$="":getr$:ifr$=chr$(13)then230
302 ifr$=chr$(95)then999
304 goto300
999 poke198,0:poke53269,0:print"[147]":end